program Project1; // Zadanie 5.9

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  n = 10; // ilosc liczb

var
  liczba,min,max:integer;

procedure czytaj_dane();
  begin
    writeln('Program losuje 10 liczb calkowitych z przedzialu od 0 do 99,');
    writeln('a nastepnie znajduje najmniejsza i najwieksza.');
    randomize;
    min := random(100);
    max := min;
    Write('Wylosowane liczby to: ');
    write(max, ', ');
  end;

procedure przetworz_dane();
var
  i: integer;
  begin
    for i := 1 to n-1 do
      begin
        liczba := random(100);
        if i < n-1 then
          write(liczba, ', ')
        else
          write(liczba, '.');
        if max < liczba then max := liczba;
        if liczba < min then min := liczba;
      end;
  end;

procedure wyswietl_wynik();
  begin
    writeln;
    writeln('Najwieksza liczba to ',max, '.');
    writeln('Najmniejsza liczba to ', min, '.');
  end;

begin
  czytaj_dane();
  przetworz_dane();
  wyswietl_wynik();

  readln; // czeka na nacisniecie klawisza Enter
end.
